home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_30_Write Caption File.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  801 b   |  37 lines
  1. global gphotolist, gSvFile, dLM
  2.  
  3. on writeFile
  4.   filePath = gSvFile & "Captions.txt"
  5.   fileText = member("Caption Text").text
  6.   fileIOInstance = xtra("FileIO").new()
  7.   if not fileIOInstance.objectp then
  8.     alert("File IO Xtra missing")
  9.     exit
  10.   end if
  11.   fileIOInstance.createFile(filePath)
  12.   case fileIOInstance.status() of
  13.     0:
  14.       nothing()
  15.     (-122):
  16.       fileIOInstance.openfile(filePath, 0)
  17.       delete(fileIOInstance)
  18.       fileIOInstance.createFile(filePath)
  19.     otherwise:
  20.       alert("Error: " & fileIOInstance.error(fileIOInstance.status()))
  21.       exit
  22.   end case
  23.   fileIOInstance.openfile(filePath, 0)
  24.   fileIOInstance.writeString(fileText)
  25.   fileIOInstance.closeFile()
  26.   fileIOInstance = 0
  27. end
  28.  
  29. on enterFrame
  30.   writeFile()
  31. end
  32.  
  33. on exitFrame
  34.   gphotolist = []
  35.   go("Fade Out")
  36. end
  37.